CREATE TABLE û instrukcja i CONSTRAINT û przyk│ad klauzuli

W tym przyk│adzie tworzona jest nowa tabela o nazwie TaTabela zawieraj╣ca dwa pola typu Text.

Sub CreateTableX1()

    Dim dbs As Database

    ' Zmodyfikuj ten wiersz tak, by £cie┐ka wskazywa│a

    ' na rzeczywist╣ bazΩ danych Northwind.

    Set dbs = OpenDatabase("Northwind.mdb")

' Utw≤rz tabelΩ zawieraj╣c╣ dwa pola typu Text.

    dbs.Execute "CREATE TABLE TaTabela " _

        & "(FirstName CHAR, LastName CHAR);"

    dbs.Close

End Sub

W tym przyk│adzie tworzona jest nowa tabela o nazwie MojaTabela zawieraj╣ca dwa pola typu Text, pole typu Date/Time oraz unikatowy indeks sk│adaj╣cy siΩ ze wszystkich trzech p≤l.

Sub CreateTableX2()

    Dim dbs As Database

    ' Zmodyfikuj ten wiersz tak, by £cie┐ka wskazywa│a

    ' na rzeczywist╣ bazΩ danych Northwind.

    Set dbs = OpenDatabase("Northwind.mdb")

    ' Utw≤rz tabelΩ zawieraj╣c╣ trzy pola oraz

    ' unikatowy indeks sk│adaj╣cy siΩ ' ze wszystkich tych p≤l.

    dbs.Execute "CREATE TABLE MojaTabela " _

        & "(FirstName CHAR, LastName CHAR, " _

        & "DataUrodzenia DATETIME, " _

        & "CONSTRAINT MojeOgraniczenie UNIQUE " _

        & "(ImiΩ, Nazwisko, DataUrodzenia));"

    dbs.Close

End Sub

W tym przyk│adzie tworzona jest nowa tabela zawieraj╣ca dwa pola typu Text oraz pole typu Integer. Pole SSN jest kluczem podstawowym.

Sub CreateTableX3()

     Dim dbs As Database

    ' Zmodyfikuj ten wiersz tak, by £cie┐ka wskazywa│a

    ' na rzeczywist╣ bazΩ danych Northwind.

    Set dbs = OpenDatabase("Northwind.mdb")

    ' Utw≤rz tabelΩ zawieraj╣c╣ trzy pola

    ' oraz klucz podstawowy.

    dbs.Execute "CREATE TABLE NowaTabela " _

        & "(FirstName CHAR, LastName CHAR, " _

        & "SSN INTEGER CONSTRAINT MojeOgrPola" _

        & "PRIMARY KEY);"

    dbs.Close

End Sub